From: Richard M. Stallman <rms@gnu.org>
Date: Sun, 13 Jun 2004 21:56:49 +0000 (+0000)
Subject: (custom-declare-face): Simplify code.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~21997
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=10d8808715db30b3eee395652b6650ceeeb055bd;p=emacs.git

(custom-declare-face): Simplify code.
---

diff --git a/lisp/cus-face.el b/lisp/cus-face.el
index 1ff07c4c361..e3134e8f1ea 100644
--- a/lisp/cus-face.el
+++ b/lisp/cus-face.el
@@ -39,15 +39,11 @@
     (when (fboundp 'facep)
       (unless (facep face)
 	;; If the user has already created the face, respect that.
-	(let ((value (or (get face 'saved-face) spec))
-	      (frames (frame-list))
-	      frame)
+	(let ((value (or (get face 'saved-face) spec)))
 	  ;; Create global face.
 	  (make-empty-face face)
 	  ;; Create frame-local faces
-	  (while frames
-	    (setq frame (car frames)
-		  frames (cdr frames))
+	  (dolist (frame (frame-list))
 	    (face-spec-set face value frame)))
 	;; When making a face after frames already exist
 	(if (memq window-system '(x w32))